{$CLEO .cs}
0000:





const
     COUNT    = 8@
     OFFSET   = 4@
     ADDR     = 0@
     TO_X     = 1@
     TO_Y     = 2@
     TO_Z     = 3@
     ID       = 5@
     HDL      = 30@
     ITEM     = 6@
     MAX_GIRL = 10@
end



var
COUNT:int
OFFSET:int
ADDR:int
MAX_GIRL:INT
end

MAX_GIRL = 12

:start 
repeat
wait 0
until if 0ab0: 54
04C4: store_coords_to TO_X TO_Y TO_Z from_actor $PLAYER_ACTOR with_offset 0.0 5.0 -1.0
TO_X -= 6.0
ITEM = 0
  
for COUNT = 1 to MAX_GIRL step 1
    OFFSET = COUNT
    OFFSET *= 4
    if COUNT == 1
    then ID =       #SFYPRO//                                
    end                                                   
    if COUNT == 2                                            
    then ID =       #WFYPRO//                                
    end                                                   
    if COUNT == 3                                            
    then ID =       #HFYPRO//                                
    end                                                   
    if COUNT == 4                                            
    then ID =       #BFYPRO///                             
    end                                                   
    if COUNT == 5                                            
    then ID =       #SWFOPRO//                                
    end                                                   
    if COUNT == 6                                            
    then ID =       #SBFYPRO//                            
    end                                                   
    if COUNT == 7                                            
    then ID =       #BFYBE//                                   
    end                                                        
    if COUNT == 8                                                 
    then ID =       #HFYBE//              
    end                                   
    if COUNT == 9                           
    then ID =       #SHFYPRO//                
    end                                   
    if COUNT == 10                          
    then ID =       #VBFYPRO//                             
    end
    if COUNT == 11                          
    then ID =       #VHFYPRO///                       
    end
    if COUNT == 12                          
    then ID =       #VWFYPRO//                           
    end
                                                    
    //0513: show_text_box_1number 'number' number ID  // ~k~~VEHICLE_ENTER_EXIT~ Usar o Caa Nqueis $~1~   
    IF AND
       ID > 0
       288 > ID
    JF CONTINUE
    IF 07DE:   model ID exists  // versionB
    JF CONTINUE
    model.Load(ID)
    038B: load_requested_models 
    if model.Available(ID)
    then //0513: show_text_box_1number 'SLOT_02' number 0@  // ~k~~VEHICLE_ENTER_EXIT~ Usar o Caa Nqueis $~1~                          
    HDL = Actor.Create(Prostitute, ID, TO_X, TO_Y, TO_Z)                                     
    0639: AS_actor HDL rotate_to_actor $PLAYER_ACTOR
    
    0AC6: ADDR  = label @ar offset
    ADDR += OFFSET                                  
    0A8C: ADDR 4 HDL 0
    else 

    end           
    if ITEM >= 6
    then 
         TO_X -= 6.0 //<-
         ITEM = 0
         TO_Y += 2.0
    else 
         ITEM++
         TO_X += 1.0 //->
    end
end

repeat
wait 0
until if 0ab0: 55
                                                                                                                                                                    
:clean
player.CanMove(0) = true
03F0: enable_text_draw 0 
for COUNT = 1 to MAX_GIRL step 1
    OFFSET = COUNT
    OFFSET *= 4
    0AC6: ADDR  = label @ar offset
    ADDR += OFFSET                                             
    0A8d: HDL ADDR 4 0         
    if HDL > 0
    jf continue
    IF 056D:   actor HDL defined
    jf continue
    actor.RemoveReferences(HDL)
end
goto @start

:ar //hgerfsiygeauyghtyiuewhgtauewhytf
hex
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
end
